-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 4
-- first background id: 2837
-- card count: 23
-- first card id: 2579
-- list block id: 5387
-- print block id: 3333
-- font table block id: 0
-- style table block id: 0
-- free block count: 2
-- free size: 6112 bytes
-- total size: 212992 bytes
-- stack block size: 3584 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0xFF000000FF000000
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800080008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on domenu menu                       --// Added by Medior, Inc. 2/20/90
  global RPStackName
  if menu is in "Home,Quit HyperCard" and RPStackName is not empty then
    set cursor to watch
    put RPStackName into shortname
    repeat until offset(":",shortname) = 0
      delete char 1 to offset(":",shortname) of shortname
    end repeat
    delete last char of shortname
    answer "This will return to "&shortname&"." with "Cancel" or "OK"
    if it is "Cancel" then exit domenu
    set cursor to watch
    lock screen
    go RPStackName
    unlock screen with dissolve
    exit domenu
  else pass doMenu
end domenu


on openStack
  hide menubar
  wait 120 ticks
  visual dissolve slowly to gray
  go to card "G01.1"
  visual effect checkerboard slow
  go to card "G01.2"
  visual effect wipe right
  go to card "G01.3"
  visual effect dissolve slow
  go to card "G01.4"
  visual wipe right
  go to card "G01.5"

  wait 450 ticks
  visual scroll left
  go to card "Map"
  wait 400 ticks
  visual scroll left
  go to card "Map 1"
  wait 150 ticks

  visual effect scroll left
  go to card "CD Roladex"
  wait 20 ticks
  visual effect wipe left
  go to card "GO7.2"
  wait 400 ticks

  visual wipe left slowly
  wait 20 ticks
  go to card "GO7.5"

  visual wipe left
  wait 20 ticks
  go to card "GO7.6"

  visual wipe right
  wait 25 ticks
  go to card "GO7.7"

  visual wipe left
  wait 25 ticks
  go to card "GO8.1"

  visual wipe right
  wait 25 ticks
  go to card "GO8.2"

  visual wipe left
  wait 25 ticks
  go to card "GO8.3"

  visual wipe right
  wait 25 ticks
  go to card "GO8.4"

  visual wipe right
  wait 25 ticks
  go to card "GO8.5"

  wait 400 ticks
  visual dissolve to white
  go to stack "General 2"
end openStack